# -*- mode: snippet -*-
# name: shiny-event-reactive
# key: shiny-event-reactive
# condition : (string= ess-dialect "R")
# --
processed_data_filtered_tbl <- eventReactive(
  eventExpr = input$apply,

  valueExpr = {

    processed_data_tbl |>

      filter(order.date |> between(left  = input$date_range[1],
                                    right = input$date_range[2])) |>

      filter(category_1 %in% input$checkbox_category_1) |>

      filter(category_2 %in% input$picker_category_2)
  },
  ignoreNULL = FALSE
)